
1 GMODE  1 SCREEN
: HATCH DATA 4 $AAAA $5555 $AAAA $5555 ;
: SET-HATCH  248 144 DO  HATCH I DCHAR 8 +LOOP ; SET-HATCH
CREATE COLORS
 2 C,   3 C,   4 C,   5 C,  6 C,  7 C,  8 C,  9 C,  10 C,  11 C,
12 C,  13 C,  14 C,  15 C,
0 CONSTANT TRANSPARENT
: SET-COLORS 14 0 DO  I 18 +  COLORS I + C@  TRANSPARENT COLOR 
  LOOP ;  SET-COLORS
FORGET HATCH

0 CONSTANT LEFT  2 CONSTANT RIGHT
4 CONSTANT UP    6 CONSTANT DOWN
0 VALUE X   0 VALUE Y   144 VALUE CHR
: WIPE  16 0 DO
   0  0 16 12 PANEL   LEFT SCROLL
  16  0 16 12 PANEL  RIGHT SCROLL
   0 12 16 12 PANEL     UP SCROLL
  16 12 16 12 PANEL   DOWN SCROLL  LOOP ;

: KSCOPE  PAGE
  BEGIN
    1000 RND 1+  0 DO
      16 RND TO X   11 RND TO Y    
      Y X CHR 1 HCHAR          23 Y -  X CHR 1 HCHAR
      Y  31 X -  CHR 1 HCHAR   23 Y -  31 X -  CHR 1 HCHAR
      8 +TO CHR  CHR 248 > IF 144 TO CHR THEN
    LOOP  WIPE  TERMINAL? 
  UNTIL  ." Thanks for watching!" CR ;
